<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="ad_comSub.asp" -->

<%
Call tslt_useridentity12_error_end()
%>

<html> 
<head> 
<title></title> 
<link href=../style/<%=session("tslt_stylefolder")%>/admin.css rel="stylesheet" type="text/css">
<SCRIPT Language=JavaScript>
function turnit(sss,iii)
{
     if (sss.style.display=="none")
	 {
		sss.style.display="";
		iii.src="../images/minus.gif";
	 }
	 else
	 {
		sss.style.display="none";
		iii.src="../images/plus.gif";
	 }
}
</SCRIPT>

</head> 
<body bgcolor=#aaaac4 class=scrollbar1> 
<center>
<table><tr><td class="font2"></td></tr></table>
<br>

<%
call main()
%>

</center>
</body> 
</html>

<%
Call conn_Nothing()

Sub main()
    Select Case request("action")
	    Case "saveNew"   
		     Call saveNew()
	    Case "edit"    
		     Call editLinkForm()
	    Case "saveEdit"   
		     Call saveEdit()
	    Case "del"
		     Call del()
	    Case "saveAll"
		     Call saveAll()
	    Case "showDemoLink"
		     Call showDemoLink()
	    Case Else
             Call addLink()
		     Call linkInfo()
		     Call demoLink()
    End Select 
End Sub

Sub addLink()
	Response.Write "<table bgcolor=#dedfde width=""97%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=center bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"" class="""">"
	Response.Write "<form action=""palLink.asp?action=saveNew"" method = post><tr>"
	Response.Write "<th width=""100%"" colspan=2 height=25 bgcolor=""#9BC4FF"" onclick='turnit(follow0,followImg0)'><img src='../images/minus.gif' id='followImg0' style='cursor:hand;'></th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td colspan=2>"
	Response.Write "<table id='follow0' width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""2"" bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"">"

	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25></td>"
	Response.Write "<td width=""60%"" height=25>"
	Response.Write "<input type=""text"" name=""linkName"" size=50>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>URLַ</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""text"" name=""url"" size=50>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>LOGO־ձַ꣩</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""text"" name=""logo"" size=50>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>ּ</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""text"" name=""readme"" size=50>"
	Response.Write "</td>"
	Response.Write "</tr>"

	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>֣</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""text"" name=""sort"" size=4 value=0>"
	Response.Write "</td>"
	Response.Write "</tr>"

	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>ӻLOGO־ձ꣩</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""radio"" name=""islogo"" value=0 checked>&nbsp;&nbsp;LOGO<input type=""radio"" name=""islogo"" value=1>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td colspan=2 align=center>"
	Response.Write "<Input type=""submit"" name=""Submit"" value="" "">"
	Response.Write "</td>"
	Response.Write "<tr>"

	Response.Write "</table>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "</table>"
End Sub

Sub linkInfo()
	Dim i 
	i=0
	Set rs= server.createobject ("adodb.recordset")
	sql = " select * from ts_palLink order by sort"
	rs.open sql,conn,1,1       
	    Response.Write "<br><table bgcolor=#dedfde width=""97%"" border=""0"" cellspacing=""0"" cellpadding=""0""  align=center bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"" class="""">"
	    Response.Write "<form action=""palLink.asp?action=saveAll"" method = post>"
	    Response.Write "<tr>"
	    Response.Write "<th height=""22"" colspan=4 bgcolor=""#9BC4FF"" onclick='turnit(follow1,followImg1)'><img src='../images/minus.gif' id='followImg1' style='cursor:hand;'>б޸ </th>"
	    Response.Write "</tr>"
	    Response.Write "<tr>"
	    Response.Write "<td colspan=2>"
	    Response.Write "<table id='follow1' width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"" bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"">"
	    Response.Write "<hr>"
	    If rs.eof and rs.bof Then
		    Response.Write "<tr><td height=""25"" colspan=4 align=""center"" class=>δ</td></tr>"
	    Else
	        Do While Not Rs.EOF
            Response.Write "<input type=""hidden"" name=""id"" size=4 value="
	        Response.Write Rs("id")
	        Response.Write ">"
	        Response.Write "<tr>"
	        Response.Write "<td width=""1%"" align=center rowspan=4>"
	        Response.Write "<table border=""1""><tr><td><b>"
	        Response.Write i
	        Response.Write "</b></td></tr></table>"
	        Response.Write "</td>"
	        Response.Write "</tr>"
	        Response.Write "<tr align=left>"
            Response.Write "<td height=25 class=>"
            Response.Write "<B></B><input type=""text"" name=""sort"&i&""" size=4 value="
	        Response.Write Rs("sort")
	        Response.Write "></td>"
	        Response.Write "<td class=>"
	        Response.Write "<B>ƣ</B><input type=""text"" name=""linkName"&i&""" size=30 value="
	        ' Response.Write server.htmlencode(Rs("linkName")&"")
	        Response.Write Rs("linkName")
	        Response.Write "></td>"
	        Response.Write "<td class=>"
	        Response.Write "<B>URL&nbsp;</B><input type=""text"" name=""url"&i&""" size=35 value="
	        ' Response.Write server.htmlencode(Rs("url")&"")
	        Response.Write Rs("url")
	        Response.Write "></td>"
	        Response.Write "<tr>"
	        Response.Write "<td class=><b>ǷͼƬ</b>"
	        Response.Write "<input type=""radio"" name=""islogo"&i&""" value=""1"" "
	        If Rs("islogo")=1 Then	
		        Response.Write " checked"
	        End If
	        Response.Write ">"
	        Response.Write "<input type=""radio"" name=""islogo"&i&""" value=""0"" "
	        If Rs("islogo")=0 Then	
		        Response.Write " checked"
	        End If
	        Response.Write ">"
	        Response.Write "</td><td class=>"
	        Response.Write "<b>logo</b>"
	        Response.Write "<input type=""text"" name=""logo"&i&""" size=30 value="
	        If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then
	            Response.Write Rs("logo")
	        End If 
	        Response.Write "></td>"
	        Response.Write "<td class= colspan=4><B>飺</B>"
	        Response.Write "<input type=""text"" name=""readme"&i&""" size=35 value="
	        If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then
	            Response.Write Rs("readme")
	        End If 
	        Response.Write "></td></tr>"
	        Response.Write "<tr><td colspan=4 align=right>"
	        Response.Write "<a class=a1 href=""palLink.asp?action=edit&id="
	        Response.Write Rs("id")
	        Response.Write """>༭</a>&nbsp;&nbsp;<a class=a1 href=""palLink.asp?action=del&id="
	        Response.Write Rs("id")
	        Response.Write """>ɾ</a>"
	        Response.Write "</td></tr>"
	        Response.Write "<tr><th height=""1"" colspan=4></td></tr>"
	        Response.Write "<hr>"
	        i=i+1
	        rs.movenext
	        loop
	        Response.Write "<tr><td height=""25"" colspan=4 align=""center""><input type=""submit"" name=""Submit"" value=""""></td></tr>"
        End If
	    Response.Write "</table>"
	    Response.Write "</td>"
	    Response.Write "</tr>"
	    Response.Write "</form>"
	    Response.Write "</table>"
    rs.Close
	set rs=Nothing
End Sub 

Sub demoLink()
	Response.Write "<br><table bgcolor=#dedfde width=""97%"" border=""1"" cellspacing=""0"" cellpadding=""0""  align=center bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"" class="""">"
	Response.Write "<form action=""palLink.asp?action=showDemoLink"" method = post>"
	Response.Write "<tr>"
	Response.Write "<th height=""22"" colspan=4 bgcolor=""#9BC4FF"">ʾ</th>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Set rs= server.createobject ("adodb.recordset")
	sql = " select * from ts_palLink where islogo=1 order by sort"
	rs.open sql,conn,1,1
        Response.Write "<marquee onmouseover=this.stop() direction=left width='100%' height='40' onmouseout=this.start() scrollAmount=4>"
	    Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
	    Response.Write "<tr>"
		Dim i 
		Dim ha
		ha=1
        Do While Not rs.eof 
	        Response.Write "<td>"
	        Response.Write "<a target=_blank href=" &rs("url")& "><img border=0 width=100 height=35 alt=" &rs("readme")& " src=" &rs("logo")& "></a>"
			Response.Write "</td>"
            ha=ha+1
            If ha>6 Then
               ha=1
               Response.Write"<tr>"
            End If
  	        rs.movenext
	    Loop
	    Response.Write "</tr>"
	    Response.Write "</table>"
	    Response.Write "</marquee>"
	rs.Close
	set rs=Nothing
	Response.Write "</td>"
	Response.Write "<tr>"
	Response.Write "<td>"
	Set rs2= server.createobject ("adodb.recordset")
	sql2 = " select * from ts_palLink where islogo=0 order by sort"
	rs2.open sql2,conn,1,1
	    Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""2"">"
	    Response.Write "<tr>"
		Dim i2 
		Dim ha2
		ha2=1
        Do While Not rs2.eof 
	        Response.Write "<td>"
	        Response.Write "<a target=_blank class=a2 title=" &rs2("readme")& " href=" &rs2("url")& ">" &rs2("linkName")& "</a>"
            Response.Write "</td>"
            ha=ha+1
            If ha2>6 Then
               ha2=1
               Response.Write"<tr>"
            End If
  	        rs2.movenext
	    Loop
	    Response.Write "</tr>"
	    Response.Write "</table>"
    rs2.Close
	set rs2=Nothing
    Dim sql3,rs3
    Dim str1,str2
    sql3="select DemoLink from option1"
    Set rs3=conn.execute(sql3)
        If rs3("DemoLink")=True Then
            str1="checked"
        Else 
            str2="checked"
        End If
    rs3.Close
	set rs3=Nothing
	Response.Write "<tr>"
	Response.Write "<td>"
	Response.Write "<center>"
	Response.Write "<br>Ƿûҳ棨ҳҳ棬ҳ棩ʾҳ棺"
	Response.Write "<br>ǣ<input type='radio' name='isshow' value='yes' "&str1&">&nbsp;&nbsp;<input type='radio' name='isshow' value='no' "&str2&"><br><input type='submit' name='Submit' value='ȷ '></center>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "</form>"
	Response.Write "</table>"
End Sub 

sub editLinkForm()
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from ts_palLink where id="&Request("id")
	rs.open sql,conn,1,1
	Response.Write "<table bgcolor=#dedfde width=""97%"" border=""1"" cellspacing=""0"" cellpadding=""3""  align=center bordercolordark=""#CCCCCC"" bordercolorlight=""#000000"" class="""">"
	Response.Write "<form action=""palLink.asp?action=saveEdit"" method=post>"
	Response.Write "<input type=hidden name=id value="
	Response.Write Request("id")
	Response.Write "><tr> <th width=""100%"" colspan=2 height=25 bgcolor=""#9BC4FF"">༭</th>"
	Response.Write "</tr><tr> "
	Response.Write "<td width=""40%"" class=>"
	Response.Write "ƣ </td>"
	Response.Write "<td width=""60%"" class=>"
	Response.Write "<input type=""text"" name=""linkName"" size=40 value="
	' Response.Write server.htmlencode(rs("linkName"))
	Response.Write Rs("linkName")
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=>"
	Response.Write "URL </td>"
	Response.Write "<td width=""60%"" class=>"
	Response.Write "<input type=""text"" name=""url"" size=40 value="
	Response.Write Rs("url")
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=>"
	Response.Write "LOGO־ձַ꣩ </td>"
	Response.Write "<td width=""60%"" class=>"
	Response.Write "<input type=""text"" name=""logo"" size=40 value="""
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then
	    Response.Write rs("logo")
	End If 
	Response.Write """>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" class=>"
	Response.Write "ּ飺 </td>"
	Response.Write "<td width=""60%"" class=>"
	Response.Write "<input type=""text"" name=""readme"" size=40 value="
	If Rs("logo")<>"" or Not IsNull(Rs("logo")) Then
	    Response.Write Rs("readme")
	End If 
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25>֣</td>"
	Response.Write "<td width=""60%"">"
	Response.Write "<input type=""text"" name=""sort"" size=4 value=0>"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td width=""40%"" height=25 class=>ӻLOGO־ձ꣩ </td>"
	Response.Write "<td width=""60%"" class=>"
	Response.Write "<input type=""radio"" name=""islogo"" value=0 "
	If rs("islogo")=0 Then
	 	Response.Write " checked"
	End If
	Response.Write ">&nbsp;&nbsp;LOGO<input type=""radio"" name=""islogo"" value=1 "
	If rs("islogo")=1 Then
		Response.Write " checked"
	End If 
	Response.Write ">"
	Response.Write "</td>"
	Response.Write "</tr>"
	Response.Write "<tr>"
	Response.Write "<td height=""15"" colspan=""2"" class=>"
	Response.Write "<div align=""center"">"
	Response.Write "<input type=""submit"" name=""Submit"" value=""ȷ "">"
	Response.Write "</div>"
	Response.Write "</td>"
	Response.Write "</tr></form>"
	Response.Write "</table>"
	Rs.Close
	Set Rs=Nothing
End Sub

sub saveNew()
    if Request("linkName")<>"" and Request("url")<>"" and Request("readme")<>"" and Request("sort")<>"" then
	    dim linknum
	    set rs= server.createobject ("adodb.recordset")
	    sql = "select * from ts_palLink"
	    rs.Open sql,conn,1,3
	        sql="insert into ts_palLink(linkName,url,logo,readme,sort,islogo) values('"&Trim(Request.Form ("linkName"))&"','"&Trim(Request.Form ("url"))&"','"&trim(request.Form("logo"))&"','"&Request.Form ("readme")&"',"&CInt(request.Form("sort"))&","&CInt(request.Form("islogo"))&")"
	        conn.Execute(sql)
	    rs.Close
	    set rs=Nothing 

        Call infoDivShow("  ӳɹ  ")
    else
        Call infoDivShow("  뽫Ϣ   ")
    end If
	Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=palLink.asp'>"
end sub

sub saveEdit()
	set rs= server.createobject ("adodb.recordset")
	sql = "select * from ts_palLink where id="&request("id")
	rs.Open sql,conn,1,2
	    if Not(rs.eof and rs.bof) Then
	        rs("linkName") = Trim(Request.Form ("linkName"))
	        rs("url") = Request.Form ("url")
	        rs("logo")=Trim(request.Form("logo"))
	        rs("readme") =  Trim(Request.Form ("readme"))
	        rs("sort") =  Trim(Request.Form ("sort"))
	        rs("islogo")=request.Form("islogo")
	        rs.Update
	    end if 
	rs.Close
	set rs=nothing
    Call infoDivShow("  ༭ɹ  ")
	Response.write "<META HTTP-EQUIV='Refresh' content='3; URL=palLink.asp'>"
end sub

sub del
	dim id
	id = request("id")
	sql="delete from ts_palLink where id="+id
	conn.Execute(sql)
    Call infoDivShow("  ɾɹ   ")
	Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=palLink.asp'>"
end sub

Sub saveAll()
	Dim id,i
	ID=Request.form("id")
	id=Replace(id," ","")
	ID=split(id,",")
	conn.Execute("Delete from ts_palLink")
	Dim sql,linkName,url,logo,sort,readme,islogo
	For i= 0 to UBound(id)
		linkName=Request.form("linkName"&i)
		url=Request.form("url"&i)
		logo=Request.form("logo"&i)
		readme=Request.form("readme"&i)
	    sort = Trim(Request.Form ("sort"&i))
		islogo=Request.form("islogo"&i)
		sql="insert into ts_palLink (linkName,url,logo,readme,sort,islogo) values ('"&linkName&"','"&url&"','"&logo&"','"&readme&"','"&CInt(sort)&"',"&CInt(islogo)&")"
		conn.Execute(sql)	
	Next
    Call infoDivShow("  ³ɹ   ")
	Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=palLink.asp'>"
End Sub 

Sub showDemoLink()
    Dim isShow
    isShow=request.form("isshow")
    If isShow="yes" Then 
	    conn.execute("update option1 set DemoLink=true")
	Else
	    conn.execute("update option1 set DemoLink=false")
	End If 
    Call infoDivShow("  ɹ   ")
	Response.write"<META HTTP-EQUIV='Refresh' content='3; URL=palLink.asp'>"
End Sub 

%>
